function[resultados_ganarp]=tabla_resultados_ganarp
principio='D:\proyecto\escritores\BD100escritores\';
for escritor=1:100
    datos=zeros(1,34);
    datos2=zeros(2,10);
    datos1=[];
   for t=1:10        
        for w=1:34
            direccion1=strcat(strcat(principio,num2str(escritor)),'\NORMAL\',strcat('muestra',num2str(t)),strcat('\p',num2str(w)),'.bmp');
            [xbin,xgrises]=binarizacion(direccion1);
            [topline,upperbaseline,downbaseline,downline,ancho_cuerpo]=lineas_palabra(xbin);
            [histhoriz,histverti,presion,grosor]=histogramas(xbin,xgrises);
            [valor,valor_area]=ganchos_arpones(upperbaseline,downbaseline,xbin,grosor);
            datos(w)=valor;
            if valor~=0
                datos1=[datos1 valor_area];
            end   
        end
         
        datos2(1,t)=mean(datos1);
        datos2(2,t)=mean(datos);
        
        datos=zeros(1,34);
    end
    resultados_ganarp{1,escritor}=datos2;
    datos2=zeros(1,10);
end   
save 'res_ganarp.mat' resultados_ganarp